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Programming Input-Output Opera- 
tions in FORTRAN on Magnetic Tape 

V. N. Gorokoy 


1. General Considerations /3 * 

As a part of the DOS ES EVM FORTRAN-4 offers users an 
extensive capacity for carrying out input-output operations. 
However, the organization of input-output on magnetic tape 
has a number of disadvantages. In the first place, the phy- 
sical recording does not exceed 260 bytes in size and may 
be accompanied by service information necessary for programs 
which accomplish input-output in FORTRAN. This complicates 
and may even preclude the possibility of an exchange of mag- 
netic tapes between users making up programs in different 
languages. Secondly, there are practically no service opera- 
tions such as rewinding tape for a needed file, a needed 
block, etc. In the third place, it is impossible to read 
in the reverse direction. 

To facilitate programming input-output operations, the 
subprogram MTCFF is proposed. The subprogram is written in 
the ASSEMBLER language and occupies 224 bytes storage. The 
subprogram is called by the operator 

CALL MTCFF (list of parameters). 


The first parameter is the operation code enclosed be- 
tween apostrophes. The following codes are admissible. 


FRE: reading in the forviard direction, 

BRE: reading in the backward direction, 

WRT: record. 
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FSR: one step forward per block, 

BSR: one step backward per block, 

FSF: one step forward per file, 

BSF: one step backward per file, 

WTM: recording of tape brand, 

ERG: erase segment 

REW: rewind tape to the beginning, 

RUM: rewind and load. 

The second parameter is an unsigned integer or a four 
byte integer variable whose value indicates the number of a 
device taken from the specification SYSnnn by which it is 
necessary to perform the indicated operation. For example, 
the operator 


CALL MTCFF(<KEW\6) 

may be required in order to rewind to the beginning the mag- 
netic tape found on the device SYSG06, The recording of the 
remaining parameters depends on the type of operations to 
be performed. 

2. Recording 

A recording of one block on magnetic tape is accomplished 
by the operator. 

CALL MTCFF('WRr',N,A,L[M liL )). 

Here: A is the name of the first element which is recorded 
on the magnetic tape. It may be a simple variable or the name 
of a file wivth >or without indices; 

L is the length of the block in bytes. It can be an un- 
signed integer or a four-byte integer variable with a pre- 
assigned value. The length of the block can vary from 18 to 
65535 bytes. It registers L bytes, beginning with the ad- 
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dress indicated by the parameter A ; 


LBL is the label of the operator in the program to which 
control will be transferred, if during the recording the physi- 
cal end of the tape is reached. The block will be completely 
recorded on the tape, and it may still be possible to record 
one or more short blocks signaling the end of the information 
on the tape. 

3. Reading 

Reading a block from a magnetic tape is accomplished by 
the operator 


CALL MTCFF ('code’ #,A,L [ ,lL6LZ JJ f 

Depending on the operation, the tape moves forward or 
backward to the following interblock interval. L decermines 
the length of the block. When reading in the forward direc- 
tion the first byte read is located by means of the address 
shown by the parameter A, and then in the increasing order 
of addresses. When reading in the reverse direction the byte 
read is located by means of the address A+L-l and then in 
decreasing order of addresses. Thus the results of reading 
the same block in different directions are identical. The 
following block is not read, even if L is specified as great- 
er than the length of the block. If L is less than the length 
of the block, L of the first bytes read are recorded in storage. 

If the length of the block is unknown, it can be read by 
first assigning to the four-byte integer variable L the value 
Q. Then the entire block is read, and the variable L receives 
a value eq’ual to the length of the block in bytes. During 
reading in the reverse direction, the first byte read is lo- 
cated by means of the address A-l, etc., in the order of de- 
creasing addresses. 
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It must be kept In mind that there is no supervision 
over observance of the limits of files; therefore, if a 
block is not placed in the part of storage allocated for 
its processing, another part of the data or program may be 
erased. To prevent this from happening, the length of the 
block can be checKed by placing L equal to -1. In this case 
the length of the block is transmitted to L, but the record- 
ing of the block itself in storage is prevented. The para- 
meter A must be specified, although in this case it is mean- 
ingless. After checking the length of the block L, the 
user can resume reading the same block. 

The parameters LBL1 and LBL2 may be omitted, but i the 
presence of at least one of them is necessary, then the second 
is required. LBL1 is the label of the operator in the program 
to which control will be transferred, if the tape index mark 
is passed. This may signal, for example, the end of the data. 
LBL2 is the label of the operator in the program to which con- 
trol will be transferred if an irregularity in the data is dis- 
covered. During recording and reading the transmission of data 
is carried out without any transformations, analogous to the 
format less input-output in FORTRAN. 

4 . The control operations 

. All the remaining operations mentioned in Section 1 belong 
to the control operations. They are performed by means of the 
operator 


CALL MTCFF.(' K oi',N[,M][ t &L B Q), 

Here: M shows how many times it is necessary to carry out 
the indicated operation. If M is omitted, then it is assumed 
that M = 1; 

LBL is the label of the operator in the program to which 
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control will be shifted If: 


a) during the operations WTM and ERG the physical end of 
the tape Is reached; 

b) during the operations BSR and PSR the tape Index mark 
Is passed. 

This parameter cannot be specified for other operations. 

If such a situation arises, performance of the operation Is 
terminated, regardless of whether the parameter LBL Is assign- 
ed and whether the parameter M has come to an end. The sub- 
program does not inform the user about the number of actually 
completed operations. If M = 0, then the Indicated operation 
is performed until the situation described in a) and b) arises, 

5. Processing errors in data 

When errors appear in data (a failure in parity, a dis- 
crepancy in CRC , etc.), the operational system carries out 
actions, attempting to get rid of the source of the failure. 

If the error cannot be rectified, then the operator will be 
sent the message 


0P11A PA TA CHBCK, 

to which the operator may respond: CANCEL — remove the job 

— or IGNORE — disregard the error. In the second case, the 
malfunctioning block is read into storage and control is trans- 
ferred to the operator in the program noted in the label of 
LBL2, if any. The user can initiate any actions regarding the 
processing of information in which there may be error. 

In a subprogram there are provided two additional input 
points: MTCFS and MTCPP, If the user resorts to the first 

CMTCFS ) , then if a malfunction occurs and the attempts at 
elimination are unsuccessful, the operator receives the message 
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0P1-1S DATA CHECH . 

Interference by the operator Is not required. The mal- 
function Is Ignored and processing continues. Control Is 
shifted to the operator noted In the program with the label 
LBL2, If any. If the user resorts to the subprogram MTCFP, 
the programs for eliminating a malfunction are not called 
when It arises, no message Is sent bo the operator, and If 
the label LBL2 has been assigned, control Is shifted to the 
corresponding operator In the program. The use of these input 
points Is recommended, If It Is known that there are Irregular 
recordings on the tape, since the process of eliminating 
malfunctions ana Interference by the operator consume consid- 
erable time. yg 

6, Additional possibilities 

The subprogram MTCFF makes it possible to carry out input- 
output operations on certain facilities of the system. The 
codes of these facilities are: 256 - SYSRDR, 257 - SYSIPT, 

258 - SYSPCH and 259 - SYSLST. Any operations permitted for 
these facilities may be performed. 

With the operator SYSLOG it Is possible to carry out input- 
output for communication facilities by means of the subprogram. 
The code for SYSLOG is 260 and the codes of the operations are: 

WRT — record without carriage return, 

WTO — record with carriage return, 

QSN — request for reading from the keyboard. 

These operations are analogous to the reading-recording 
operations, and for their performance these same parameters 
must be assigned. 

When the operation QSN is performed, a shift is made to 
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the label LBL1 If the operator at the end of a set of text 
presses the button AH(annul), Instead of the button Kl* (end 
of text), signalling the admission of an error. In this 
case It Is necessary to repeat the operation In order to 
give the operator the opportunity to rectify the error: 

25 CALL n TCFF ('GSM 1 ,260, A ,10,^15) , 

With the FORTRAN facilities It Is Impossible to execute 
Input with SYSLOG. 

7 . C alling the subprogram MTCFF with programs In other 
programming languages 

The subprogram MTCFF adheres to the standard system agree- 
ment about communications; therefore it is necessary that the 
calling program also use these agreements. For example, the 
subprogram transmits to a calling program In register 15 the 
return code 0, 4 or 8, depending on the type of conclusion in- 
volved In the operation, and the calling program can check this /9 
code. The FORTRAN translator generates commands, carrying 
out such a check, if in the list of parameters of the operator 
CALL there are expressions of the type &LBL. 

The parameters N, M, L must always be four-byte integers, 
and this must be carefully observed. For example, in PL/1, 
constants recorded by digits are of the type decimal fixed , 
but not b inary fixed ; therefore they must not be used as para- 
meters. 

n wtf.GSNAL PAGE is 

8. Remarks about programming OF POOR QUAIITV 

It must be kept in mind that the subprogram organizes 
input-output on the physical level; therefore there is no pro- 
cessing of tape labels. The labels VOL, HDR, EOF, etc., are 
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ordinary blocks which do not differ from recordings of data as 
far as the subprogram Is concerned. The physical input-output 
system also does not organise combinations of input-output with 
a calculation In the program. Control of the calling program 
Is returned only after the requested operation is completely 
finished. This can lead to a reduction in the productivity of 
the system In the case of Installations without multiprogramming. 
Therefore, If In a program a very large Input-output Is provided 
for, languages must be used which make It possible to organize 
such a combination, e.g., ASSEMBLER, COBOL, PL/1, etc. 
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